home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / forge20.zip / EXTPROC2.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  855b  |  43 lines
  1. Procedure Write_RecNo;
  2. Begin
  3.     TextColor(Black);
  4.     TextBackground(lightgray);
  5.     GotoXY(75,25);
  6.     Write('     ');
  7.     GotoXY(75,25);
  8.     Write(Current_File_Pos);
  9.     Entry_Field:= 0;
  10.     Tab;
  11. End;
  12.  
  13.  
  14.  
  15.  
  16. Procedure Review_Prev_Rec;
  17. Begin
  18.   If FileSize(Output_File) <> 0 Then Begin
  19.     Blank_Fields;
  20.     If Current_File_Pos <> 1 Then Begin
  21.       Current_File_Pos:= Current_File_Pos-1;
  22.       Read_Record_and_Write_It;
  23.       Write_RecNo;
  24.       End { if file pos <> 1 }
  25.     Else Begin  { it does = 1 }
  26.       Sound(1000);
  27.       Delay(200);
  28.       Nosound;
  29.       Current_File_Pos:= 1;
  30.       Read_Record_And_Write_It;
  31.       Write_RecNo;
  32.       End; { else }
  33.     End { if filesize <> 0 }
  34.   Else Begin  { filesize does = 0 }
  35.     Sound(1000);
  36.     Delay(200);
  37.     Nosound;
  38.     End;
  39.   End; { procedure review_prev_rec }
  40.  
  41.  
  42.  
  43.